home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
ptv1n3.arc
/
SMTEST.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-08-01
|
464b
|
23 lines
program StackMonTest;
{-Simple program to test STACKMON}
uses
{StackMon should be the first unit used}
StackMon, Crt;
var
P : Pointer;
procedure StackEater;
{-Use some stack space}
var
BigArray : array[1..12331] of Byte; {this is on the stack}
begin
{delay a while to insure that StackMon sees what we've used}
Delay(100);
end;
begin
{use some stack and heap space}
GetMem(P, 56789);
StackEater;
end.